home *** CD-ROM | disk | FTP | other *** search
/ Shareware Extravaganza - Disc 4 / Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso / cad / sirlinvw.zip / DEMOSCR.CF < prev    next >
Text File  |  1990-07-31  |  11KB  |  644 lines
  1. #---------------------------------------------------------------#
  2. # demoscr.cf
  3. #
  4. # Control Script For SirlinVIEW Demo
  5. #    Ver 1.06
  6. #
  7. # 5/2/90
  8. # (c) Copyright 1989,1990 Sirlin Computer Corporation. All Rights Reserved.
  9. #
  10. #---------------------------------------------------------------#
  11.  
  12.  
  13. *Send screenControl {
  14.     SetCntlGreek:        0
  15. }
  16.  
  17. *Send dwgdraw { SetReturnCancel: FALSE }
  18. *Send drawingprompt { SetSValue: " DRAWING... " }
  19.  
  20. #-------------------------------------------
  21.  
  22. *Send normalcursor { HideCursor: }
  23.  
  24. *New Pen txtpen {
  25.     SetPenColor:     BLACK
  26.     SetBkgdColor:     YELLOW
  27. }
  28.  
  29. *New Pen txtborderpen {
  30.     SetPenColor:    BLACK
  31. }
  32.  
  33. #-------------------------------------------
  34. # explanation box (small)
  35.  
  36. *New Ftextwin runtext1 {
  37.     SetPosnRC:    1, 1
  38.     SetSizeRC:    7, 25
  39.     SetEOBuf:    32    # space char
  40.     SetPen:        txtpen
  41. }
  42.  
  43. *New HelpWindow runtxtwin1 {
  44.     SetGraphic: *New Canvas {
  45.             SetPosnRC:    2, 1,
  46.             SetSizeRC:    9, 27
  47.             SetPen:        txtpen
  48.             SetBorderPen:    txtborderpen
  49.             AddGraphic:    runtext1
  50.             AddGraphic:    *New Ftext {
  51.                 SetString: " Press Enter "
  52.                 SetPosnRC:    8, 7
  53.                 SetPen:        whitepen
  54.                 }
  55.             }
  56.     SetHelpTextWin:    runtext1
  57.     SetHelpFile:     "demo.txt"
  58.     SetTouchOutside: FALSE
  59.     SetClickOutside: TRUE
  60.     SetOutsideStatus: CANCEL
  61. }
  62.  
  63. *New HelpWindow runtxtwin1a {
  64.     SetGraphic: *New Canvas {
  65.             SetPosnRC:    2, 1,
  66.             SetSizeRC:    9, 27
  67.             SetPen:        txtpen
  68.             SetBorderPen:    txtborderpen
  69.             AddGraphic:    runtext1
  70.             }
  71.     SetHelpTextWin:    runtext1
  72.     SetHelpFile:     "demo.txt"
  73.     SetTouchOutside: FALSE
  74.     SetClickOutside: TRUE
  75.     SetOutsideStatus: CANCEL
  76. }
  77.  
  78. #-------------------------------------------
  79. # explanation box (larger)
  80.  
  81. *New Ftextwin runtext2 {
  82.     SetPosnRC:    1, 1
  83.     SetSizeRC:    7, 35
  84.     SetEOBuf:    32    # space char
  85.     SetPen:        txtpen
  86. }
  87.  
  88. *New HelpWindow runtxtwin2 {
  89.     SetGraphic: *New Canvas {
  90.             SetPosnRC:    2, 1,
  91.             SetSizeRC:    9, 37
  92.             SetPen:        txtpen
  93.             SetBorderPen:    txtborderpen
  94.             AddGraphic:    runtext2
  95.             AddGraphic:    *New Ftext {
  96.                 SetString: " Press Enter "
  97.                 SetPosnRC:    8, 12
  98.                 SetPen:        whitepen
  99.                 }
  100.             }
  101.     SetHelpTextWin:    runtext2
  102.     SetHelpFile:     "demo.txt"
  103.     SetTouchOutside: FALSE
  104.     SetClickOutside: TRUE
  105.     SetOutsideStatus: CANCEL
  106. }
  107.  
  108. *New HelpWindow runtxtwin2a {
  109.     SetGraphic: *New Canvas {
  110.             SetPosnRC:    2, 1,
  111.             SetSizeRC:    9, 37
  112.             SetPen:        txtpen
  113.             SetBorderPen:    txtborderpen
  114.             AddGraphic:    runtext2
  115.             }
  116.     SetHelpTextWin:    runtext2
  117.     SetHelpFile:     "demo.txt"
  118.     SetTouchOutside: FALSE
  119.     SetClickOutside: TRUE
  120.     SetOutsideStatus: CANCEL
  121. }
  122.  
  123. #-------------------------------------------
  124. # explanation box (wider, below)
  125.  
  126. *New Ftextwin runtext3 {
  127.     SetPosnRC:    1, 1
  128.     SetSizeRC:    6, 30
  129.     SetEOBuf:    32    # space char
  130.     SetPen:        txtpen
  131. }
  132.  
  133. *New HelpWindow runtxtwin3 {
  134.     SetGraphic: *New Canvas {
  135.             SetPosnRC:    15, 1,
  136.             SetSizeRC:    8, 32
  137.             SetPen:        txtpen
  138.             SetBorderPen:    txtborderpen
  139.             AddGraphic:    runtext3
  140.             AddGraphic:    *New Ftext {
  141.                 SetString: " Press Enter "
  142.                 SetPosnRC:    7, 7
  143.                 SetPen:        whitepen
  144.                 }
  145.             }
  146.     SetHelpTextWin:    runtext3
  147.     SetHelpFile:     "demo.txt"
  148.     SetTouchOutside: FALSE
  149.     SetClickOutside: TRUE
  150.     SetOutsideStatus: CANCEL
  151. }
  152.  
  153. *New HelpWindow runtxtwin3a {
  154.     SetGraphic: *New Canvas {
  155.             SetPosnRC:    15, 1,
  156.             SetSizeRC:    8, 32
  157.             SetPen:        txtpen
  158.             SetBorderPen:    txtborderpen
  159.             AddGraphic:    runtext3
  160.             }
  161.     SetHelpTextWin:    runtext3
  162.     SetHelpFile:     "demo.txt"
  163.     SetTouchOutside: FALSE
  164.     SetClickOutside: TRUE
  165.     SetOutsideStatus: CANCEL
  166. }
  167.  
  168. #-------------------------------------------
  169. #-------------------------------------------
  170. #-------------------------------------------
  171.  
  172. *Send runtxtwin2 {
  173.     LoadHelp:     RUN1A
  174.     Draw:         
  175.     TakeControl: DUMYCALLER 
  176.     Reset:
  177.     UnDraw:
  178. }
  179.  
  180. *Send mainmenubut { Highlite: }
  181.  
  182. *Send runtxtwin2 {
  183.     LoadHelp:     RUN1B
  184.     Draw:         
  185.     TakeControl: DUMYCALLER 
  186.     Reset:
  187.     UnDraw:
  188. }
  189.  
  190. *Send mainmenubut { UnHighlite: }
  191.  
  192. #-------------------------------------------
  193.  
  194. *Send mainmenu { Draw: }
  195.  
  196. *Send runtxtwin1 {
  197.     LoadHelp:     RUN1C
  198.     Draw:         
  199.     TakeControl: DUMYCALLER 
  200.     Reset:
  201.     UnDraw:
  202. }
  203.  
  204. *Send helpbut { Highlite: }
  205.  
  206. *Send runtxtwin1 {
  207.     LoadHelp:     RUN1D
  208.     Draw:         
  209.     TakeControl: DUMYCALLER 
  210.     Reset:
  211.     UnDraw:
  212. }
  213.  
  214. *Send helpbut { UnHighlite: }
  215.  
  216. #-------------------------------------------
  217.  
  218. *Send loadbut { Highlite: }
  219.  
  220. *Send runtxtwin1 {
  221.     LoadHelp:     RUN2A
  222.     Draw:         
  223.     TakeControl: DUMYCALLER 
  224.     Reset:
  225.     UnDraw:
  226. }
  227.  
  228. #-------------------------------------------
  229.  
  230. *Send loadbut { UnHighlite: }
  231. *Send mainmenu { Undraw: }
  232. *Send dirbox { Reset: Draw: }
  233.  
  234. *Send runtxtwin3 {
  235.     LoadHelp:     RUN2B
  236.     Draw:         
  237.     TakeControl: DUMYCALLER 
  238.     Reset:
  239.     UnDraw:
  240. }
  241.  
  242. #-------------------------------------------
  243.  
  244. *Send dirbox_fnamefield {
  245.     SetString:    "INDEX   .DWG"
  246.     Draw:
  247. }
  248.  
  249. *Send runtxtwin3 {
  250.     LoadHelp:     RUN2C
  251.     Draw:         
  252.     TakeControl: DUMYCALLER 
  253.     Reset:
  254.     UnDraw:
  255. }
  256.  
  257. #-------------------------------------------
  258.  
  259. *Send dirbox { Undraw: }
  260. *Send dwgname { SetSValue: "index.dwg" }
  261. *Send loaddwg { Doit: }
  262. *Send dwgdraw { Doit: }
  263.  
  264. #-------------------------------------------
  265.  
  266. *Send runtxtwin2 {
  267.     LoadHelp:     RUN3A
  268.     Draw:         
  269.     TakeControl: DUMYCALLER 
  270.     Reset:
  271.     UnDraw:
  272. }
  273.  
  274. *Send mainmenu { Draw: }
  275. *Send linkbut { Highlite: }
  276.  
  277. *Send runtxtwin1 {
  278.     LoadHelp:     RUN3B
  279.     Draw:         
  280.     TakeControl: DUMYCALLER 
  281.     Reset:
  282.     UnDraw:
  283. }
  284.  
  285. *Send mainmenu { Undraw: }
  286. *Send link { InitLinks: }
  287.  
  288. *Send runtxtwin1 {
  289.     LoadHelp:     RUN3C
  290.     Draw:         
  291.     TakeControl: DUMYCALLER 
  292.     Reset:
  293.     UnDraw:
  294. }
  295.  
  296. *Send link { DoneLinks: }
  297.  
  298. *Send runtxtwin1a {
  299.     LoadHelp:     RUN3D
  300.     Draw:         
  301. }
  302.  
  303. *Send normalcursor { ShowCursor: }
  304.  
  305. *Send promptmsg { SetString: "Point to Region to Link to Drawing..." }
  306. *Send drawprompt { Doit: }
  307.  
  308. *Send normalcursor { SetEventXY: 1, 400, 150, 0 }
  309. #*Send link { Edit: }
  310.  
  311. *Send link { TakeControl: DUMYCALLER }
  312. *Send promptmsg { SetString: "" }
  313. *Send drawprompt { Doit: }
  314.  
  315. *Send normalcursor { HideCursor: }
  316.  
  317. *Send runtxtwin1a { Undraw: }
  318.  
  319. *Send okcancelboxtext { SetString: "LOAD THIS DRAWING FILE?" }
  320. *Send dwgname {
  321.     SetTarget:    okcancelboxtext2
  322.     SetOpcode:    SetString:
  323.     Doit:
  324. }
  325. *Send okcancelbox { Draw: }
  326.  
  327. *Send runtxtwin3 {
  328.     LoadHelp:     RUN3E
  329.     Draw:         
  330.     TakeControl: DUMYCALLER 
  331.     Reset:
  332.     UnDraw:
  333. }
  334.  
  335. *Send okcancelbox { Undraw: }
  336. *Send undrawprompt { Doit: }
  337. *Send loaddwg { Doit: }
  338.  
  339. *Send screenControl {
  340.     SetCntlGreek:        3
  341.     SetCntlGreekSize:    6
  342. }
  343.  
  344. *Send dwgdraw { Doit: }
  345.  
  346. *Send screenControl {
  347.     SetCntlGreek:        0
  348. }
  349.  
  350. *Send runtxtwin2 {
  351.     LoadHelp:     RUN3F
  352.     Draw:         
  353.     TakeControl: DUMYCALLER 
  354.     Reset:
  355.     UnDraw:
  356. }
  357.  
  358. #-------------------------------------------
  359.  
  360. *Send runtxtwin2 {
  361.     LoadHelp:     RUN4A
  362.     Draw:         
  363.     TakeControl: DUMYCALLER 
  364.     Reset:
  365.     UnDraw:
  366. }
  367.  
  368. *Send mainmenu { Draw: }
  369. *Send viewbut { Highlite: }
  370.  
  371. *Send runtxtwin1 {
  372.     LoadHelp:     RUN4B
  373.     Draw:         
  374.     TakeControl: DUMYCALLER 
  375.     Reset:
  376.     UnDraw:
  377. }
  378.  
  379. *Send mainmenu { Undraw: }
  380. *Send viewmenu { Draw: }
  381. #*Send zmupbut { Highlite: }
  382.  
  383. *Send runtxtwin1 {
  384.     LoadHelp:     RUN4C
  385.     Draw:         
  386.     TakeControl: DUMYCALLER 
  387.     Reset:
  388.     UnDraw:
  389. }
  390.  
  391. *Send viewmenu { Undraw: }
  392.  
  393. *Send runtxtwin1 {
  394.     LoadHelp:     RUN4D
  395.     Draw:         
  396.     TakeControl: DUMYCALLER 
  397.     Reset:
  398.     UnDraw:
  399. }
  400.  
  401. *Send viewmenu { Undraw: }
  402. *Send autodwg {    ZoomFactor: 2.0 }
  403. *Send dwgdraw { Doit: }
  404.  
  405. #-------------------------------------------
  406.  
  407. *Send runtxtwin2 {
  408.     LoadHelp:     RUN5A
  409.     Draw:         
  410.     TakeControl: DUMYCALLER 
  411.     Reset:
  412.     UnDraw:
  413. }
  414.  
  415. *Send mainmenu { Draw: }
  416. *Send layerbut { Highlite: }
  417.  
  418. *Send runtxtwin1 {
  419.     LoadHelp:     RUN5B
  420.     Draw:         
  421.     TakeControl: DUMYCALLER 
  422.     Reset:
  423.     UnDraw:
  424. }
  425.  
  426. *Send mainmenu { Undraw: }
  427. *Send layer_initaction { Doit: }
  428. *Send layerdialog { Draw: }
  429.  
  430. *Send runtxtwin3 {
  431.     LoadHelp:     RUN5C
  432.     Draw:         
  433.     TakeControl: DUMYCALLER 
  434.     Reset:
  435.     UnDraw:
  436. }
  437.  
  438. *Send layer_holder { ToggleLayer: 1 }
  439. *Send layer_list { UpdateButton: 1 }
  440.  
  441. *Send runtxtwin3 {
  442.     LoadHelp:     RUN5D
  443.     Draw:         
  444.     TakeControl: DUMYCALLER 
  445.     Reset:
  446.     UnDraw:
  447. }
  448.  
  449. *Send layer_holder { ToggleLayer: 3 }
  450. *Send layer_list { UpdateButton: 3 }
  451.  
  452. *Send runtxtwin3 {
  453.     LoadHelp:     RUN5E
  454.     Draw:         
  455.     TakeControl: DUMYCALLER 
  456.     Reset:
  457.     UnDraw:
  458. }
  459.  
  460. *Send layerdialog { Undraw: }
  461. *Send layer_holder { UpdateLayers: }
  462. *Send dwgdraw { Doit: }
  463.  
  464. #-------------------------------------------
  465.  
  466. *Send runtxtwin2 {
  467.     LoadHelp:     RUN6A
  468.     Draw:         
  469.     TakeControl: DUMYCALLER 
  470.     Reset:
  471.     UnDraw:
  472. }
  473.  
  474. *Send mainmenu { Draw: }
  475. *Send notebut { Highlite: }
  476.  
  477. *Send runtxtwin1 {
  478.     LoadHelp:     RUN6B
  479.     Draw:         
  480.     TakeControl: DUMYCALLER 
  481.     Reset:
  482.     UnDraw:
  483. }
  484.  
  485. *Send mainmenu { Undraw: }
  486. *Send notemenu { Draw: }
  487. *Send addnotebut { Highlite: }
  488.  
  489. *Send runtxtwin1 {
  490.     LoadHelp:     RUN6C
  491.     Draw:         
  492.     TakeControl: DUMYCALLER 
  493.     Reset:
  494.     UnDraw:
  495. }
  496.  
  497. *Send notemenu { Undraw: }
  498.  
  499. *Send runtxtwin2a {
  500.     LoadHelp:     RUN6D
  501.     Draw:         
  502. }
  503.  
  504. *Send promptmsg { SetString:
  505. " Select Location with Mouse (or use arrow keys and press Enter):"
  506. }
  507. *Send drawprompt { Doit: }
  508.  
  509. *Send normalcursor { SetEventXY: 1, 400, 150, 0 ShowCursor: }
  510.  
  511. *Send noteaddlocator { SetTarget: noteadder SetOpcode: SetI2Value: Doit: }
  512. *Send noteadder { Doit: }
  513. *Send notes { SendNoteText: }
  514.  
  515. *Send normalcursor { HideCursor: }
  516.  
  517. *Send undrawprompt { Doit: }
  518. *Send runtxtwin2a { Undraw: }
  519. *Send notedialog { Reset: Draw: }
  520.  
  521. *Send runtxtwin3a {
  522.     LoadHelp:     RUN6E
  523.     Draw:         
  524. }
  525.  
  526. *Send notetext {
  527.     SetString: "T" Draw:
  528.     SetString: "Th" Draw:
  529.     SetString: "Thi" Draw:
  530.     SetString: "This" Draw:
  531.     SetString: "This " Draw:
  532.     SetString: "This i" Draw:
  533.     SetString: "This is" Draw:
  534.     SetString: "This is " Draw:
  535.     SetString: "This is a" Draw:
  536.     SetString: "This is a " Draw:
  537.     SetString: "This is a n" Draw:
  538.     SetString: "This is a no" Draw:
  539.     SetString: "This is a not" Draw:
  540.     SetString: "This is a note" Draw:
  541.     SetString: "This is a note!" Draw:
  542. }
  543.  
  544. *Send runtxtwin3a { Undraw: }
  545.  
  546. *Send runtxtwin3 {
  547.     LoadHelp:     RUN6F
  548.     Draw:         
  549.     TakeControl: DUMYCALLER 
  550.     Reset:
  551.     UnDraw:
  552. }
  553.  
  554. *Send notedialog { Undraw: }
  555. *Send notes { DrawCurrent: }
  556.  
  557. *Send runtxtwin2 {
  558.     LoadHelp:     RUN6G
  559.     Draw:         
  560.     TakeControl: DUMYCALLER 
  561.     Reset:
  562.     UnDraw:
  563. }
  564.  
  565. #-------------------------------------------
  566.  
  567. *Send mainmenu { Draw: }
  568. *Send printbut { Highlite: }
  569.  
  570. *Send runtxtwin1 {
  571.     LoadHelp:     RUN7A
  572.     Draw:         
  573.     TakeControl: DUMYCALLER 
  574.     Reset:
  575.     UnDraw:
  576. }
  577.  
  578. *Send mainmenu { Undraw: }
  579. *Send printmenu { Draw: }
  580.  
  581. *Send runtxtwin1 {
  582.     LoadHelp:     RUN7B
  583.     Draw:         
  584.     TakeControl: DUMYCALLER 
  585.     Reset:
  586.     UnDraw:
  587. }
  588.  
  589. *Send printmenu { Undraw: }
  590.  
  591. #-------------------------------------------
  592.  
  593. *Send runtxtwin2 {
  594.     LoadHelp:     RUN8A
  595.     Draw:         
  596.     TakeControl: DUMYCALLER 
  597.     Reset:
  598.     UnDraw:
  599. }
  600.  
  601. *Send inputform { Draw: }
  602.  
  603. *Send runtxtwin3 {
  604.     LoadHelp:     RUN8B
  605.     Draw:         
  606.     TakeControl: DUMYCALLER 
  607.     Reset:
  608.     UnDraw:
  609. }
  610.  
  611. *Send inputform { Undraw: }
  612.  
  613. #-------------------------------------------
  614.  
  615. *Send mainmenu { Draw: }
  616. *Send quitbut { Highlite: }
  617.  
  618. *Send runtxtwin1 {
  619.     LoadHelp:     RUN9A
  620.     Draw:         
  621.     TakeControl: DUMYCALLER 
  622.     Reset:
  623.     UnDraw:
  624. }
  625.  
  626. *Send mainmenu { Undraw: }
  627.  
  628. #-------------------------------------------
  629. #-------------------------------------------
  630. #-------------------------------------------
  631.  
  632. # reset
  633.  
  634. *Send dirbox_fnamefield { SetString: "" }
  635. *Send dwgname { SetSValue: "" }
  636. *Send autodwg { LoadFile: "" }
  637. *Send notes { Reset: }
  638.  
  639. *Send status { Undraw: }
  640. *Send normalcursor { ShowCursor: }
  641.  
  642. *Send mainprompt { Draw: }
  643.  
  644.